Aminet 31/Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso/Aminet/misc/math/convertor.lha/Install

Text File | 1999-03-11 | 5.7 KB | 157 lines

(if (= @language 'français')
                                ;FRENCH STRINGS
    ((set #askcat       'Catalogues à copier:')
     (set #askcathelp   'Sélectionnez les langues que vous voulez installer. (L\'anglais est inclu dans le programme)')
     (set #setcvdir     'Choisissez le répertoire où copier le programme et ses fichiers:')
     (set #setcvdirhelp 'Choisissez où je vais installer Convertor.\nJ\'y copierait la documentation, le programme principal et les données.\nAUCUN REPERTOIRE SERA CREE. (Si par exemple vous choisissez \'Work:math/\', tout sera copié dans \'Work:math/\').')
     (set #cptrans      'Voulez-vous que je copie les fichiers nécessaires pour traduire Convertor dans une autre langue? (29K)')
     (set #cptranshelp  'Si vous répondez oui, je vais copier les fichiers .cd et .ct dans un tiroir nommé \'Translation\'. Vous pourrez ainsi me traduire Convertor dans une nouvelle langue (et gagner un keyfile :-)')
     (set #copy 'Copie')
     (set #skip 'Saute')
    )
    (if (= @language 'deutsch')
                                ;GERMAN STRINGS
        ((set #askcat       'Welche Kataloge sollen kopiert werden?')
         (set #askcathelp   'Wählen Sie die Sprachen an, die Sie installieren wollen. (Englisch ist eingebaut)')
         (set #setcvdir     'In welches Verzeichnis soll Convertor kopiert werden?\n(Es wird kein Verzeichnis erstellt!)')
         (set #setcvdirhelp 'Geben Sie hier das Verzeichnis an, in welches Sie das Programm installieren wollen.\nDas Hauptprogramm, die Anleitung und die Zusatzdaten werden kopiert.\nES WIRD KEIN VERZEICHNIS ERSTELLT.\n(Wenn Sie beispielsweise \'Work:math/\' auswählen, werden alle Dateien in \'Work:math/\' kopiert).')
         (set #cptrans      'Wollen Sie, daß die notwendigen Dateien installiert werden, mit denen Sie Convertor in eine neue Sprache übersetzen können? (29K)')
         (set #cptranshelp  'Wenn Sie mit Ja antworten, werden die .cd und .ct Dateien in ein Verzeichnis namens \'Translation\' kopiert. Damit könnten Sie Convertor in eine andere Sprache übersetzen (und ein Keyfile gewinnen :-).\nDiese Dateien sind nicht zum Betrieb von Convertor erforderlich.')
         (set #copy 'Kopieren')
         (set #skip 'Überspringen')
        )
                                ;DEFAULT LANGUAGE: ENGLISH STRINGS
        ((set #askcat       'Catalogs to be copied:')
         (set #askcathelp   'Click the languages you want to be installed. (English is built-in)')
         (set #setcvdir     'Set Convertor\'s directory')
         (set #setcvdirhelp 'Please set here where to Install Convertor.\nI will copy the documentation, the main program and the data there.\nNO DIRECTORY WILL BE CREATED. (If you select e.g. \'Work:math/\', everything will be copied in \'Work:math/\').')
         (set #cptrans      'Do you want me to copy the necessary files to translate Convertor in a new lantguage? (29K)')
         (set #cptranshelp  'If you answer yes, I\'ll copy .cd et .ct files in a drawer named \'Translation\'. You would then able to translate Convertor in a new language (and win a keyfile :-)')
         (set #copy 'Copy')
         (set #skip 'Skip')
        )
    )
)
(complete 0)
(set #languages
    (askoptions
        (prompt #askcat)
        (help #askcathelp)
        (choices 'Deutsch' 'Français' 'Italiano' 'Polski' 'Svenska')
    )
)
(complete 9)
(if (IN #languages 0)
    (copyfiles
        (source 'catalogs/deutsch/convertor.catalog')
        (dest 'Locale:Catalogs/deutsch')
        (optional nofail)
    )
)
(complete 18)
(if (IN #languages 1)
    (copyfiles
        (source 'catalogs/français/convertor.catalog')
        (dest 'Locale:Catalogs/français')
        (optional nofail)
    )
)
(complete 27)
(if (IN #languages 2)
    (copyfiles
        (source 'catalogs/italiano/convertor.catalog')
        (dest 'Locale:Catalogs/italiano')
        (optional nofail)
    )
)
(complete 36)
(if (IN #languages 3)
    (copyfiles
        (source 'catalogs/polski/convertor.catalog')
        (dest 'Locale:Catalogs/polski')
        (optional nofail)
    )
)
(complete 45)
(if (IN #languages 4)
    (copyfiles
        (source 'catalogs/svenska/convertor.catalog')
        (dest 'Locale:Catalogs/Svenska')
        (optional nofail)
    )
)
(complete 55)
(set @default-dest
    (askdir
        (prompt #setcvdir)
        (help #setcvdirhelp)
        (default @default-dest)
    )
)
(complete 64)
(copyfiles
    (choices 'convertor' 'convertor2.7' 'convertor2.7.info')
    (source '')
    (dest @default-dest)
)
(complete 73)
(if (= @language 'deutsch')
    (copyfiles                 ;copy German UnitData
        (source 'UnitDataGer')
        (newname 'UnitData')
        (dest @default-dest)
    )
    (copyfiles                 ;default: English UnitData
        (source 'UnitData')
        (dest @default-dest)
    )
)
(complete 82)
(if (= @language 'deutsch')
    (
        (copyfiles
            (source 'convertor_deutsch.guide' )
            (newname 'convertor.guide')
            (dest @default-dest)
            (infos)
            (optional nofail)
        )
        (copyfiles
            (source 'readme')
            (dest @default-dest)
        )
        (copyfiles
            (source 'history.txt')
            (dest @default-dest)
        )
    )
    (copyfiles
        (choices 'convertor.guide' 'convertor.guide.info' 'readme' 'history.txt')
        (source '')
        (dest @default-dest)
        (optional nofail)
    )
)
(complete 91)
(if
    (askbool
        (prompt #cptrans)
        (help #cptranshelp)
        (choices #copy #skip)
        (default 0)
    )
    (
        (copyfiles
            (source 'Translation/')
            (dest (tackon @default-dest 'Translation'))
            (infos)
            (all)
        )
        (copyfiles
            (source 'Translation.info')
            (dest @default-dest)
        )
    )
)
(complete 100)